home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh0x / sh06c.d64 / listing 3 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1995-03-30  |  23.0 KB  |  921 lines
  1. 1 REM  **********************************
  2. 2 REM *    GIGA-CAD  GRAPHIC-SYSTEM    *
  3. 3 REM *          'CAD.CREATE'          *
  4. 4 REM * BY S. VILSMEIER & S. LIPPSTREU *
  5. 5 REM **********************************
  6. 6 :
  7. 7 :
  8. 8 A=PEEK(836)+1:POKE836,A:IFA=1THENPOKE55,0:POKE56,82:CLR:A=1
  9. 9 IFA=1THENLOAD"HIRES3.CAD.OBJ",8,1
  10. 10 IFA=2THENLOAD"HIRES8.CAD.OBJ",8,1
  11. 11 OPEN1,8,15:GOSUB688
  12. 12 SYS50707,1:POKE53280,14:DIMP(30,2),B$(63)
  13. 13 IFD=0THENGOSUB907
  14. 14 :
  15. 15 :
  16. 16 REM **********************************
  17. 17 REM *    VARIABLEN/ SYS-ARESSEN      *
  18. 18 REM **********************************
  19. 19 :
  20. 20 H=50181:CO=50292:PL=50447:E=50707:G=50859:LI=51049:JO=51627:RF=53280
  21. 21 FL=51480:L=51507:R=51800:KR=52008:D4=52103:D3=52176:T1=52466:T2=52490
  22. 22 MU=52517:CP=36878:L3=38378:J2=39247:C1=39718:D1=40052:C2=40206
  23. 23 D2=40344:L4=21764:CI=21836:UM=22873:C3=25652:DA=25123
  24. 24 SYSH,11,15,2:GOTO108
  25. 25 :
  26. 26 :
  27. 27 REM *********************************
  28. 28 REM *    GRAFIK LOESCHEN/ MENUE     *
  29. 29 REM *********************************
  30. 30 :
  31. 31 PRINT"[147][151]";:SYSH,11,15,B:SYST1,B
  32. 32 BS=B:GOSUB68:SYSKR,1,B:SYSMU,B:IFP=1THENGOSUB61
  33. 33 RETURN
  34. 34 J=J-128:QX=O:O=PZ:GOSUB122:PZ=O:O=QX:RETURN:REM JOYST. UMWANDLUNG -TIEFE
  35. 35 :
  36. 36 :
  37. 37 REM *********************************
  38. 38 REM *     DIVERSE UNTERPROGRAMME    *
  39. 39 REM *********************************
  40. 40 :
  41. 41 PRINT"[147][151] [164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]":RETURN
  42. 42 FORI=1TO22:PRINT" [180]                                    [170]":NEXT
  43. 43 PRINT" [183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]":RETURN
  44. 44 N$="":INPUT"[205]AKRO - [206]AME     ";N$
  45. 45 IFLEN(N$)>13THENPRINT"[145][145][145][145]";:GOTO44
  46. 46 GOSUB79:RETURN
  47. 47 GETA$:IFA$=""GOTO47
  48. 48 RETURN
  49. 49 N1=0:FORI=1TOK:IFN$=B$(I)THENN1=I:I=K
  50. 50 NEXT:RETURN
  51. 51 PRINT"  [196]IESES [205]AKRO IST NICHT IM [211]PEICHER !":GOSUB47:RETURN
  52. 52 N$="":PRINT"[213]NTER WELCHEM [206]AMEN SOLL DAS [205]AKRO"
  53. 53 INPUT"EINGEFUEGT WERDEN                  [157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]";N$
  54. 54 GOSUB79:RETURN
  55. 55 PRINTCHR$(14)CHR$(8):POKE198,0:RETURN
  56. 56 BS=1
  57. 57 SYSG,240,0,293,9,2,BS:RETURN
  58. 58 BS=2:GOTO57
  59. 59 BS=1
  60. 60 SYSG,139,0,180,9,2,BS:RETURN
  61. 61 BS=2:GOTO60
  62. 62 SYSG,0,0,42,9,2,1:RETURN
  63. 63 SYSG,99,0,137,9,2,1:RETURN
  64. 64 SYSG,43,0,98,9,2,1:RETURN
  65. 65 SYSH,11,15,2:RETURN
  66. 66 BS=2:GOTO68
  67. 67 BS=1
  68. 68 SYSR,0,0,319,199,1,BS:SYSCP,BS:RETURN
  69. 69 ZM=1:GOTO71
  70. 70 ZM=0
  71. 71 SYSR,2,101,157,197,ZM,3:RETURN
  72. 72 SYSJ2,Z,O,0
  73. 73 Z=PEEK(2024)+256*PEEK(2025):O=PEEK(2026):A=PEEK(631):RETURN
  74. 74 XA=USR(1):SA=USR(2):VB=USR(3):RETURN
  75. 75 EI=PEEK(877):C=PEEK(881):IFEITHENEI=0:C=0:WQ=1
  76. 76 RETURN
  77. 77 SYSJO:J=PEEK(859):GETA$:RETURN
  78. 78 X2=X1:Y2=Y1:Z2=Z1:RETURN
  79. 79 N1=0:IFN$="_"ORN$=""THENN1=1
  80. 80 RETURN
  81. 81 IFPEEK(53272)<>23THENSYSE,0:GOSUB55
  82. 82 A=0:GETA$:IFA$<>""THENA=ASC(A$)
  83. 83 RETURN
  84. 84 INPUT"[214]ERBINDUNGSVORSCHRIFT ";VB:IFVB<0ORVB>2THENPRINT"[145][145][145][145]";:GOTO84
  85. 85 SYSE,1:RETURN
  86. 86 :
  87. 87 :
  88. 88 REM *********************************
  89. 89 REM *   FLAECHEN & MAKROS DURCHBL.  *
  90. 90 REM *********************************
  91. 91 :
  92. 92 SYSE,1
  93. 93 IFF<1THENF=N1
  94. 94 IFF=N1+1THENF=1
  95. 95 SYSL,1:GOSUB65:SYSDA,MO,F,1,2
  96. 96 SYSCO,2,2:SYSFL,4
  97. 97 GOSUB47
  98. 98 A=ASC(A$):IFA=43THENF=F+1:GOTO93
  99. 99 IFA=86THENGOSUB887:RETURN
  100. 100 IFA=45THENF=F-1:GOTO93
  101. 101 RETURN
  102. 102 :
  103. 103 :
  104. 104 REM *********************************
  105. 105 REM *      1. DARSTELLUNG           *
  106. 106 REM *********************************
  107. 107 :
  108. 108 B=2:GOSUB31:IFD=1THENSYS25919
  109. 109 IFPTHENSYSDA,5,K,1,B:GOTO111
  110. 110 ZN=0:SYSDA,ZN,DG,1,B
  111. 111 SYSCO,1,0
  112. 112 :
  113. 113 :
  114. 114 REM *********************************
  115. 115 REM *  JOYSTICK-ABFRAGE HAUPTMENUE  *
  116. 116 REM *********************************
  117. 117 :
  118. 118 Z=159:O=12:POKE40783,0
  119. 119 GOSUB72
  120. 120 IFPEEK(631)=0THEN127
  121. 121 GOTO119
  122. 122 W=W+1:IFW>20THENW=20
  123. 123 IFJ1<>JTHENW=1
  124. 124 IFME=2THENW=W*2
  125. 125 O=O-((J>3ANDJ<7)-(J<3ORJ>7))*W:Z=Z-((J>1ANDJ<5)-(J>5))*W:IFME=2THENW=W/2
  126. 126 N=0:J1=J:RETURN
  127. 127 IFO>9GOTO119
  128. 128 IFZ<42GOTO182
  129. 129 IFZ>182ANDZ<239GOTO344
  130. 130 IFZ>99ANDZ<137ANDD<>1GOTO420
  131. 131 IFZ>43ANDZ<98GOTO455
  132. 132 IFZ>137ANDZ<182GOTO555
  133. 133 IFZ>239ANDZ<293ANDP=0GOTO784
  134. 134 IFZ>292ANDP=0THENPRINT"[147]":SYSE,0:GOTO898
  135. 135 GOTO119
  136. 136 :
  137. 137 :
  138. 138 REM *********************************
  139. 139 REM *        LINIEN-BLINKEN         *
  140. 140 REM *********************************
  141. 141 :
  142. 142 IFN=0THENRETURN
  143. 143 SYSL4,PA,PB,Z,O,2,B
  144. 144 IFU=1ORME=3THENN=1-N:RETURN
  145. 145 SYSL4,Z,O,PC,PD,2,B:N=1-N:RETURN
  146. 146 :
  147. 147 :
  148. 148 REM *********************************
  149. 149 REM *   TASTATURABFRAGE (BLINKEN)   *
  150. 150 REM *********************************
  151. 151 :
  152. 152 A=ASC(A$)
  153. 153 N=1-N:GOSUB142:N=1-N:IFME=3GOTO159
  154. 154 IFA=147THENGOSUB65:POKE40783,0:B=2:GOTO183
  155. 155 IFA=76THENGOSUB142:GOSUB170:IFU=0GOTO189
  156. 156 IFA=95GOTO213
  157. 157 IFA=67THENSYSCI,B:N=1
  158. 158 GOTO198
  159. 159 IFA=147THENSYSE,2:POKE40783,0:GOTO456
  160. 160 IFA=76THENGOSUB142:GOSUB173:IFU=0GOTO459
  161. 161 IFA=95GOTO483
  162. 162 IFA=67THENSYSCI,B:N=1
  163. 163 GOTO468
  164. 164 :
  165. 165 :
  166. 166 REM *********************************
  167. 167 REM *        LINIE LOESCHEN         *
  168. 168 REM *********************************
  169. 169 :
  170. 170 GOSUB142:U=U-1:IFU=0THENRETURN
  171. 171 SYSL4,P(U-1,1)+160,P(U-1,2)+100,PC,PD,2,B
  172. 172 PC=P(U-1,1)+160:PD=P(U-1,2)+100:Z=PC:O=PD:RETURN
  173. 173 U=U-1:IFU=0THENRETURN
  174. 174 SYSL4,P(U-1,0)+160,180-P(U-1,1),PA,PB,2,2
  175. 175 Z=PA:O=PB:PA=P(U-1,0)+160:PB=180-P(U-1,1):RETURN
  176. 176 :
  177. 177 :
  178. 178 REM *********************************
  179. 179 REM *      FLAECHE: 2D-EINGABE      *
  180. 180 REM *********************************
  181. 181 :
  182. 182 GOSUB65:ME=1:B=3:C=0
  183. 183 GOSUB66:SYST1,2:SYSD4,1,2
  184. 184 U=0:SYSG,0,0,42,9,2,B
  185. 185 IFPTHENGOSUB61
  186. 186 M=0:B=2
  187. 187 SYSLI,160,97,160,103,1,2
  188. 188 SYSLI,157,100,163,100,1,2:SYSE,2
  189. 189 Z=160:O=100
  190. 190 GOSUB72
  191. 191 IFA<>0GOTO193
  192. 192 GOTO197
  193. 193 IFA=67THENSYSCI,B
  194. 194 IFA=95GOTO213
  195. 195 GOTO190
  196. 196 REM ***** 1. ECKPUNKT ************
  197. 197 N=0:U=1:P(0,1)=Z-160:P(0,0)=0:P(0,2)=O-100:PA=Z:PB=O:PC=Z:PD=O
  198. 198 GOSUB143:GOSUB77:IFA$<>""GOTO152
  199. 199 IFJ=0THENW=0:GOTO198
  200. 200 GOSUB142:IFJ=128THEN202
  201. 201 GOSUB122:GOTO198
  202. 202 IFPC=ZANDPD=OGOTO198
  203. 203 IFU>29GOTO198
  204. 204 SYSL4,PC,PD,Z,O,2,2
  205. 205 U=U+1:PC=Z:PD=O:P(U-1,1)=PC-160:P(U-1,0)=0:P(U-1,2)=PD-100
  206. 206 GOTO198
  207. 207 :
  208. 208 :
  209. 209 REM ********************************
  210. 210 REM *     FLAECHE: EINFUEGEN (3D)   *
  211. 211 REM ********************************
  212. 212 :
  213. 213 VF=0:IFU>1THENGOSUB321:DG=D-1
  214. 214 C=0:ME=1:SYSL,1:M=0:Z=160:O=100
  215. 215 GOSUB65:IFU<2THENME=0:GOSUB62:GOTO118
  216. 216 SYSDA,1,DG,1,2
  217. 217 SYSCO,2,2:SYSFL,4
  218. 218 IFC=0THENGOSUB69
  219. 219 IFC<>0THEN223
  220. 220 B=2:GOSUB72:IFA<>0GOTO227
  221. 221 IFZ<42ANDO<9THENA=95:GOTO227
  222. 222 WQ=1
  223. 223 GOSUB749:IFC=0THEN220
  224. 224 GOSUB762:IFC=0THEN220
  225. 225 SYSUM,C,1,DG,D,EI,J,W:GOSUB75
  226. 226 SYSL,1:M=0:GOTO215
  227. 227 GOSUB769:SYSE,1:IFSVGOTO225
  228. 228 IFA=95GOTO325
  229. 229 IFA=48THENC=10:GOSUB772:DF=DG:C=1:GOSUB548:GOTO225
  230. 230 IFA=43THENVF=DG:GOTO240
  231. 231 IFA=76THENGOSUB254:GOTO325
  232. 232 IFA=42ANDVF<>0GOTO304
  233. 233 GOTO220
  234. 234 :
  235. 235 :
  236. 236 REM ********************************
  237. 237 REM *     FLAECHE DUPLIZIEREN      *
  238. 238 REM ********************************
  239. 239 :
  240. 240 SYSL,1:SYSCO,1,1:S=0
  241. 241 SYSD2,DG:GOSUB74:IFS<>2THENZE=1:GOSUB915:IFFTHENSYSE,1:GOTO247
  242. 242 SYSD2,DG+1:XB=USR(1):IFS=2THENSA=K
  243. 243 SYSC2,V+1,D,SA,VB:D=D+1:SYSC2,V+(XB-XA)+1,D,SA,VB
  244. 244 FORI=XATOXB-1:V=V+1
  245. 245 SYSD1,I:SYSC1,USR(1),USR(2),USR(3),V
  246. 246 NEXT:IFS=2THENRETURN
  247. 247 DG=D-1:GOTO214
  248. 248 :
  249. 249 :
  250. 250 REM ********************************
  251. 251 REM *    FLAECHE LOESCHEN          *
  252. 252 REM ********************************
  253. 253 :
  254. 254 SYSL,1
  255. 255 SYSD2,DG:YA=USR(1):SYSD2,DG+1:XB=USR(1):SU=XB-YA
  256. 256 FORI=DG+1TOD+1
  257. 257 SYSD2,I:GOSUB74:IFXA<SUTHENXA=SU
  258. 258 SYSC2,XA-SU,I-1,SA,VB:NEXT:D=D-1
  259. 259 FORI=XBTOV+SU
  260. 260 SYSD1,I:SYSC1,USR(1),USR(2),USR(3),I-SU:NEXT:V=V-SU
  261. 261 RETURN
  262. 262 :
  263. 263 :
  264. 264 REM ********************************
  265. 265 REM *    MAKRO LOESCHEN            *
  266. 266 REM ********************************
  267. 267 :
  268. 268 X2=1:Y2=0:SYSL,1:B$(DG)=""
  269. 269 FORI=1TOD-1
  270. 270 SYSD2,I:GOSUB74:IFSA=DGGOTO280
  271. 271 IFSA>DGTHENSA=SA-1
  272. 272 SYSD2,I+1:Z1=USR(2):XB=USR(1)
  273. 273 SYSC2,Y2+1,X2,SA,VB:SYSC2,Y2+(XB-XA)+1,X2+1,Z1,VB
  274. 274 X2=X2+1
  275. 275 FORQ=XATOXB-1
  276. 276 SYSD1,Q:X1=USR(1):Y1=USR(2):Z1=USR(3)
  277. 277 IFX1=-3276.8THENX1=0:Y1=0:Z1=0
  278. 278 Y2=Y2+1:SYSC1,X1,Y1,Z1,Y2
  279. 279 NEXT
  280. 280 NEXT
  281. 281 FORI=X2+1TOD:SYSC2,0,I,0,0:NEXT
  282. 282 V=Y2:D=X2
  283. 283 FORI=DGTOMM+1:B$(I)=B$(I+1):NEXT:RETURN
  284. 284 :
  285. 285 :
  286. 286 REM ********************************
  287. 287 REM *    MAKRO DUPLIZIEREN         *
  288. 288 REM ********************************
  289. 289 :
  290. 290 GOSUB890:SYSL,1:SYSCO,1,1
  291. 291 DR=D:DH=DG
  292. 292 GOSUB918:GOSUB915:IFFTHENK=K-1:RETURN
  293. 293 FORX2=1TODR-1
  294. 294 SYSD2,X2:SA=USR(2)
  295. 295 IFSA=DHTHENDG=X2:GOSUB241
  296. 296 NEXT
  297. 297 RETURN
  298. 298 :
  299. 299 :
  300. 300 REM ********************************
  301. 301 REM *    FLAECHEN VERBINDEN        *
  302. 302 REM ********************************
  303. 303 :
  304. 304 SYSL,1:SYSD2,VF:XA=USR(1):VB=USR(3):SYSD2,VF+1:XB=USR(1):SYSD2,DG:YA=USR(1)
  305. 305 ZE=4*(XB-XA):GOSUB915:IFFGOTO314
  306. 306 FORI=XATOXB:IFI=XBTHENX1=X3:Y1=Y3:Z1=Z3:PA=X4:PB=Y4:PC=Z4:GOTO310
  307. 307 SYSD1,I:X1=USR(1):Y1=USR(2):Z1=USR(3):SYSD1,YA+(I-XA)
  308. 308 PA=USR(1):PB=USR(2):PC=USR(3)
  309. 309 IFI=XATHENX3=X1:Y3=Y1:Z3=Z1:X4=PA:Y4=PB:Z4=PC:GOTO313
  310. 310 SYSC2,V+1,D,MM,VB:D=D+1:SYSC2,V+5,D,MM,VB
  311. 311 V=V+1:SYSC1,X1,Y1,Z1,V:V=V+1:SYSC1,X2,Y2,Z2,V
  312. 312 V=V+1:SYSC1,PD,PE,PF,V:V=V+1:SYSC1,PA,PB,PC,V:SYSDA,1,D-1,1,1
  313. 313 GOSUB78:PD=PA:PE=PB:PF=PC:NEXT
  314. 314 GOSUB65:SYSDA,1,DG,1,2:SYSCO,2,2:SYSFL,4:GOTO220
  315. 315 :
  316. 316 :
  317. 317 REM ********************************
  318. 318 REM * FLAECHE IN SPEICHER CODIEREN *
  319. 319 REM ********************************
  320. 320 :
  321. 321 IFP=0THENMM=0
  322. 322 ZE=1:GOSUB915:IFFTHENRETURN
  323. 323 SYSC2,V+1,D,MM,VN:SYSC2,V+U+1,D+1,MM,VN:D=D+1:FORQ=1TOU
  324. 324 SYSC1,P(Q-1,0),P(Q-1,1),P(Q-1,2),Q+V:NEXT:V=V+U:RETURN
  325. 325 GOSUB70:SYSL,1:IFA<>76THENSYSCO,1,1
  326. 326 ME=1:IFA=43THENA=0:GOTO215
  327. 327 ME=0:GOSUB62:M=0:GOTO118
  328. 328 :
  329. 329 :
  330. 330 REM ********************************
  331. 331 REM *     SYMBOLE INVERTIEREN      *
  332. 332 REM ********************************
  333. 333 :
  334. 334 IFC<>0ANDEI<>1THENSYSG,PA,PB,PC,PD,2,B
  335. 335 IFC=7THENSYS52664,2,B
  336. 336 IFC=8THENSYS52835,2,B
  337. 337 IFC=9THENSYS53045,2,B
  338. 338 RETURN
  339. 339 :
  340. 340 REM ********************************
  341. 341 REM *    3D-ZEICHNEN               *
  342. 342 REM ********************************
  343. 343 :
  344. 344 SYSCO,2,0:SYSD3,2,2:M=1:N=0
  345. 345 SYSG,182,0,239,9,2,2:ME=2:SYSE,2
  346. 346 Z=0:O=0:PZ=0:N=0:B=2:U=0
  347. 347 SYSLI,78,55,82,55,2,2:SYSLI,80,53,80,57,2,2
  348. 348 SYSLI,238,55,242,55,2,2:SYSLI,240,53,240,57,2,2
  349. 349 SYSLI,238,145,242,145,2,2:SYSLI,240,143,240,147,2,2
  350. 350 IFM=0THENRETURN
  351. 351 SYSC3,PZ,Z,O,2,B:N=1-N
  352. 352 GOSUB77:IFA$<>""GOTO357
  353. 353 IFJ=0ORJ=128THENW=0:GOTO351
  354. 354 IFNTHENSYSC3,PZ,Z,O,2,B:N=0
  355. 355 IFJ>128THENGOSUB34:GOTO351
  356. 356 GOSUB122:GOTO351
  357. 357 A=ASC(A$):IFNTHENSYSC3,PZ,Z,O,2,B:N=0
  358. 358 IFA=94GOTO362
  359. 359 IFA=95THENGOTO413
  360. 360 IFA=67THENSYSCI,B:N=1
  361. 361 GOTO351
  362. 362 U=1:P(0,1)=Z:P(0,0)=PZ:P(0,2)=O:PA=Z:PB=O:PC=Z:PD=O:PE=PZ:PF=PZ
  363. 363 GOSUB378:GOSUB77
  364. 364 IFA$<>""GOTO386
  365. 365 IFJ=0ORJ=128THENW=0:GOTO363
  366. 366 GOSUB377:IFJ>128ANDU<29THENGOSUB34:GOTO363
  367. 367 GOSUB122:GOTO363
  368. 368 GOSUB377:SYSL3,PF,PC,PD,PZ,Z,O,1,B
  369. 369 U=U+1:PC=Z:PD=O:PF=PZ:P(U-1,1)=PC:P(U-1,0)=PF:P(U-1,2)=PD
  370. 370 GOTO363
  371. 371 :
  372. 372 :
  373. 373 REM ********************************
  374. 374 REM *     3D-LINIEN-BLINKEN        *
  375. 375 REM ********************************
  376. 376 :
  377. 377 IFN=0THENRETURN
  378. 378 SYSL3,PE,PA,PB,PZ,Z,O,2,B:IFU=1THENN=1-N:RETURN
  379. 379 SYSL3,PF,PC,PD,PZ,Z,O,2,B:N=1-N:RETURN
  380. 380 :
  381. 381 :
  382. 382 REM ********************************
  383. 383 REM *  3D-ZEICHNEN: TASTENABFRAGE  *
  384. 384 REM ********************************
  385. 385 :
  386. 386 A=ASC(A$):IFA=87ORA=94GOTO390
  387. 387 IFA<>147ANDA<>95ANDA<>76ANDA<>43ANDA<>70ANDA<>67GOTO363
  388. 388 IFA<>147GOTO390
  389. 389 POKE40783,0:SYSCO,2,0:SYSD3,2,2:GOTO345
  390. 390 IFA=95GOTO396
  391. 391 IFA=76GOTO405
  392. 392 IFA=43THENM=0:GOSUB347:M=1:GOTO397
  393. 393 N=1-N:GOSUB377:N=1-N:IFA=67THENSYSCI,B:GOTO363
  394. 394 IFA=94GOTO368
  395. 395 GOSUB62:GOTO213
  396. 396 IFU<2GOTO413
  397. 397 ME=2:GOSUB321:SYSE,2
  398. 398 M=0:FORQ=0TOU-1:IFQ=UTHENX1=X3:Y1=Y3:Z1=Z3:GOTO400
  399. 399 X1=P(Q,0):Y1=P(Q,1):Z1=P(Q,2):IFM=0THENM=1:X3=X1:Y3=Y1:Z3=Z1:GOTO401
  400. 400 SYSL3,X1,Y1,Z1,X2,Y2,Z2,1,3
  401. 401 GOSUB78:NEXT
  402. 402 SYSL3,PE,PA,PB,PF,PC,PD,1,3
  403. 403 IFA=43THENN=1:U=0:B=2:GOTO346
  404. 404 N=0:SYSE,1:ME=0:GOTO118
  405. 405 GOSUB377:IFU=<1THENZ=0:O=0:PZ=0:U=0:GOTO344
  406. 406 SYSCO,2,0:U=U-2:SYSG,182,0,239,9,2,2:SYSD3,2,2
  407. 407 M=0:FORQ=0TOU
  408. 408 X1=P(Q,0):Y1=P(Q,1):Z1=P(Q,2):IFM=0THENGOSUB347:M=1:GOTO410
  409. 409 SYSL3,X1,Y1,Z1,X2,Y2,Z2,1,2
  410. 410 GOSUB78:NEXT
  411. 411 PC=P(U,1):PD=P(U,2):PF=P(U,0):Z=PC:O=PD:PZ=PF:U=U+1
  412. 412 GOTO363
  413. 413 IFU<2THENME=0:SYSE,1:N=0:GOTO118
  414. 414 :
  415. 415 :
  416. 416 REM ********************************
  417. 417 REM *     FORM                     *
  418. 418 REM ********************************
  419. 419 :
  420. 420 GOSUB63:GOSUB69:SYSCO,2,0:ME=0
  421. 421 Z=160:O=100:FO=1:JL=0:C=0
  422. 422 SYSE,1:B=1
  423. 423 ZN=0:IFPTHENDG=MM:ZN=5
  424. 424 GOSUB72
  425. 425 IFA<>0GOTO435
  426. 426 IFZ>99ANDZ<137ANDO<9THENA=95:GOTO435
  427. 427 WQ=1
  428. 428 GOSUB749:IFC=0GOTO424
  429. 429 GOSUB762:IFC=0GOTO424
  430. 430 GOSUB70:SYSUM,C,ZN,DG,D,EI,J,W:GOSUB75
  431. 431 IFJL=0THENGOSUB442:GOSUB334:SYSE,1:SYSCO,2,0
  432. 432 IFJL>0THENJL=JL+1
  433. 433 GOSUB69:IFC=0GOTO424
  434. 434 GOTO428
  435. 435 GOSUB769:SYSL,1:SYSE,1:IFSVGOTO430
  436. 436 GOSUB446:IFJL>1ANDA=133THENPOKERF,14:GOSUB442:SYSE,1:SYSCO,2,0:JL=0
  437. 437 IFA=95ANDJL>1THENPOKERF,14:GOSUB442:SYSE,1:SYSCO,2,0:JL=0
  438. 438 IFA=95THENGOSUB63:GOSUB70:ME=0:FO=0:GOTO118
  439. 439 IFA=48THENC=10:GOSUB772:DF=DG:C=ZN:GOSUB548:GOTO430
  440. 440 GOTO424
  441. 441 REM *** NEUE GESAMTDARSTELLUNG **
  442. 442 SYSE,2:B=1:GOSUB31
  443. 443 GOSUB67:GOSUB63
  444. 444 IFP=1THENGOSUB59
  445. 445 SYSDA,ZN,DG,1,B:GOSUB75:GOSUB69:RETURN
  446. 446 IFA=133ANDJL=0THENJL=1:POKERF,6:RETURN
  447. 447 IFA=133ANDJL=1THENJL=0:POKERF,14
  448. 448 RETURN
  449. 449 :
  450. 450 :
  451. 451 REM ********************************
  452. 452 REM *     ROTATION: 2D-EINGABE     *
  453. 453 REM ********************************
  454. 454 :
  455. 455 U=0:GOSUB64:ME=3
  456. 456 GOSUB65:SYST1,2:GOSUB66:SYSG,43,0,98,9,2,2
  457. 457 SYSD4,2,2:SYS22659,1,2:SYSE,2
  458. 458 IFPTHENGOSUB61
  459. 459 Z=160:O=170:B=2
  460. 460 SYSJ2,Z,O,1:GOSUB73
  461. 461 IFA<>0GOTO463
  462. 462 GOTO467
  463. 463 IFA=95THENSYSE,1:GOSUB64:ME=0:GOTO118
  464. 464 IFA=67THENSYSCI,B
  465. 465 IFA=147THENSYSE,2:POKE40783,0:GOTO456
  466. 466 GOTO460
  467. 467 N=0:U=1:P(0,0)=Z-160:P(0,1)=180-O:PA=Z:PB=O
  468. 468 GOSUB143:GOSUB77:IFA$<>""GOTO152
  469. 469 IFJ=0THENW=0:GOTO468
  470. 470 GOSUB142:IFJ=128ANDU<29THENGOSUB473:GOTO468
  471. 471 GOSUB122:IFO>180THENO=180
  472. 472 GOTO468
  473. 473 IFPA=ZANDPB=OTHENRETURN
  474. 474 IFU>48THENRETURN
  475. 475 SYSLI,Z,O,PA,PB,2,2
  476. 476 PA=Z:PB=O:P(U,0)=Z-160:P(U,1)=180-O:U=U+1:RETURN
  477. 477 :
  478. 478 :
  479. 479 REM ********************************
  480. 480 REM *    ROTATION: EINFUEGEN (3D)  *
  481. 481 REM ********************************
  482. 482 :
  483. 483 SYSE,0:GOSUB55:K=K+1
  484. 484 GOSUB41:GOSUB43:PRINT"       [210]OTATIONSKOERPER ERSTELLEN      [146] "
  485. 485 FC=0:INPUT"[193]NZAHL DER [198]ACETTEN   ";FC
  486. 486 IFFC<3THENPRINT"[145][145]";:GOTO485
  487. 487 INPUT"[210]OTATIONSWINKEL         360[157][157][157][157][157]";RW
  488. 488 IFABS(RW)>360THENPRINT"[145][145]";:GOTO487
  489. 489 INPUT"[214]ERBINDUNGSVORSCHRIFT   0[157][157][157]";VB
  490. 490 IFVB<0ORVB>3THENPRINT"[145][145]";:GOTO489
  491. 491 IFP<>0GOTO498
  492. 492 IFS=2THENSYSE,0:GOSUB55:PRINT"[147]";
  493. 493 N$="":INPUT"[205]AKRO - [206]AME          ";N$
  494. 494 IF(N$="_"ORN$="")ANDS=2THENPRINT"[145][145]";:GOTO493
  495. 495 GOSUB79:IFN1THENK=K-1:A=95:GOTO463
  496. 496 GOSUB49:IFN1THENPRINT"[145][145]";:GOTO493
  497. 497 B$(K)=N$
  498. 498 SYSE,1:W=RW*(null)/180:IFS=2THENS=0:GOTO515
  499. 499 ZE=4*(U-1)*FC:GOSUB915:IFFTHENB$(K)="":GOTO484
  500. 500 GOSUB890:Z=0:FORI=0TOW-.000001STEPW/FC:W=W/FC:W1=SIN(I):W2=COS(I):PC=SIN(I+W)
  501. 501 PD=COS(I+W):FORQ=0TOU-2
  502. 502 SYSC2,V+1,D,K,VB:SYSC2,V+5,D+1,K,VB:D=D+1:V=V+1
  503. 503 SYSC1,W1*P(Q,1),W2*P(Q,1),P(Q,0),V:V=V+1
  504. 504 SYSC1,PC*P(Q,1),PD*P(Q,1),P(Q,0),V:V=V+1
  505. 505 SYSC1,PC*P(Q+1,1),PD*P(Q+1,1),P(Q+1,0),V:V=V+1
  506. 506 SYSC1,W1*P(Q+1,1),W2*P(Q+1,1),P(Q+1,0),V
  507. 507 NEXT:W=W*FC
  508. 508 NEXT:DG=K
  509. 509 :
  510. 510 :
  511. 511 REM ********************************
  512. 512 REM *      MAKROS EINFUEGEN        *
  513. 513 REM ********************************
  514. 514 :
  515. 515 Z=159:O=100:JL=0:C=0
  516. 516 IFJL=0THENGOSUB539
  517. 517 IFJL>0THENJL=JL+1:SYSFL,4:GOSUB69
  518. 518 IFC<>0GOTO524
  519. 519 GOSUB72
  520. 520 IFA<>0GOTO528
  521. 521 IFZ>43ANDZ<98ANDO<9ANDAS=0THENA=95:GOTO528
  522. 522 IFZ>137ANDZ<182ANDO<9ANDASTHENA=95:GOTO528
  523. 523 WQ=1
  524. 524 GOSUB749:IFC=0GOTO519
  525. 525 GOSUB762:IFC=0GOTO519
  526. 526 SYSL,1
  527. 527 GOSUB70:SYSUM,C,3,DG,D,EI,J,W:GOSUB75:GOTO516
  528. 528 IF(A=95ORA=43)ANDJL>1THENPOKERF,14:SYSL,1:GOSUB539:JL=0
  529. 529 IFA=76ANDJL>0THENPOKERF,14:JL=0
  530. 530 IFA=95THENSYSL,1:SYSCO,1,1:GOTO543
  531. 531 GOSUB446:IFA=133ANDJL>1THENPOKERF,14:JL=0:SYSL,1:GOSUB539
  532. 532 IFA=76THENGOSUB268:ME=1:K=K-1:GOTO543
  533. 533 IFA=43THENK=K+1:S=2:GOSUB290:SYSE,1:IFFTHENA=95:GOTO528
  534. 534 IFA=43THENDG=K:GOTO492
  535. 535 IFA=48THENC=10:GOSUB772:DF=K:C=3:GOSUB548:GOTO527
  536. 536 GOSUB769:SYSE,1:IFSVGOTO526
  537. 537 GOTO519
  538. 538 REM *** NEU DARSTELLEN **********
  539. 539 GOSUB65:B=2
  540. 540 SYSDA,3,DG,1,B
  541. 541 SYSCO,2,2:GOSUB69:FO=2
  542. 542 SYSFL,4:RETURN
  543. 543 GOSUB70:FO=0:C=0:EI=0:IFAS=0THENGOSUB64
  544. 544 IFPANDASTHENAS=0:RETURN
  545. 545 IFAS<>0THENAS=0:GOSUB59
  546. 546 ME=0:GOTO118
  547. 547 REM *** '0' BEI UMFORMUNGEN *****
  548. 548 GOSUB70:SYSUM,1,C,DF,D,1,0,W:SYSUM,2,C,DF,D,1,0,W:EI=1:C=3:SYSE,1:RETURN
  549. 549 :
  550. 550 :
  551. 551 REM ********************************
  552. 552 REM *     MAKRO - HAUPTMENUE       *
  553. 553 REM ********************************
  554. 554 :
  555. 555 GOSUB41
  556. 556 PRINT"            [205][193][203][210][207] -[200]AUPTMENUE          [146]"
  557. 557 GOSUB42
  558. 558 PRINT"[193].[205]AKRO LADEN"
  559. 559 PRINT"[194].[205]AKRO SPEICHERN"
  560. 560 PRINT"[195].[196]ISKETTENKOMMANDO SENDEN"
  561. 561 PRINT"[196].[205]AKROS AUF [196]ISKETTE"
  562. 562 PRINT"[197].[205]AKROS IM [211]PEICHER"
  563. 563 PRINT"[198].[205]AKRO ERSTELLEN"
  564. 564 PRINT"[199].[205]AKRO EINFUEGEN"
  565. 565 PRINT"[200].[193]LLES [197]RSTELLTE ALS [205]AKRO"
  566. 566 GOSUB81:IF(A<65ORA>72)ANDA<>95GOTO566
  567. 567 IFA=95THENSYSE,1:OPEN1,8,15,"U9":CLOSE1:GOTO118
  568. 568 ONA-64GOTO664,644,695,706,625,575,588,614
  569. 569 :
  570. 570 :
  571. 571 REM ********************************
  572. 572 REM *     MAKRO ERSTELLEN          *
  573. 573 REM ********************************
  574. 574 :
  575. 575 IFP=1GOTO566
  576. 576 GOSUB41:GOSUB43
  577. 577 PRINT"            [205]AKRO ERSTELLEN            [146] "
  578. 578 GOSUB890:GOSUB44:IFN1GOTO555
  579. 579 GOSUB49:IFN1THENPRINT"[145][145][145][145][145]";:GOTO578
  580. 580 B$(K+1)=N$
  581. 581 P=1:K=K+1:MM=K:SYSE,1:ZW=D:GOTO108
  582. 582 :
  583. 583 :
  584. 584 REM ********************************
  585. 585 REM *     MAKRO EINFUEGEN          *
  586. 586 REM ********************************
  587. 587 :
  588. 588 IFK=0GOTO566
  589. 589 GOSUB41:GOSUB43:PRINT"            [205]AKRO EINFUEGEN            [146]"
  590. 590 GOSUB44:IFN1GOTO555
  591. 591 IFN$<>B$(MM)GOTO598
  592. 592 IFD=ZWTHENAS=1:P=0:SYSDA,0,V,1,1:SYSE,1:K=K-1:GOTO543
  593. 593 FORI=1TOD:SYSD2,I:SA=USR(2):IFSA>MMTHENSYSC2,USR(1),I,MM,USR(3)
  594. 594 NEXT
  595. 595 ZN=4:DG=MM:SYSH,11,15,1:SYST1,1:GOSUB67:SYSMU,1:SYSKR,1,1
  596. 596 AS=1:GOSUB59:SYSDA,ZN,DG,1,1
  597. 597 SYSE,1:P=0:K=MM:MM=0:DG=K:GOTO515
  598. 598 GOSUB49:IFN1GOTO600
  599. 599 GOSUB51:GOTO555
  600. 600 DG=N1:I=1:K=K+1:IFP=1THEN605
  601. 601 GOSUB52:IFN1THENK=K-1:GOTO555
  602. 602 GOSUB49:IFN1THENPRINT"[145][145][145][145][145]";:GOTO601
  603. 603 B$(K)=N$:I=1
  604. 604 GOSUB918:GOSUB915:IFFTHENK=K-1:GOTO555
  605. 605 S=2:GOSUB291:AS=1:ZN=4:DG=K:GOSUB65:B=1:IFPGOTO607
  606. 606 GOSUB59:GOSUB515:AS=0:GOSUB59:GOTO118
  607. 607 GOSUB515:AS=0:GOTO118
  608. 608 :
  609. 609 :
  610. 610 REM ********************************
  611. 611 REM *  ALLES ERSTELLTE ALS MAKRO   *
  612. 612 REM ********************************
  613. 613 :
  614. 614 IFD=1ORPGOTO566
  615. 615 GOSUB41:GOSUB43:PRINT"       [193]LLES [197]RSTELLTE ALS [205]AKRO       [146] "
  616. 616 GOSUB44:IFN1GOTO555
  617. 617 B$(1)=N$:FORI=1TOD:SYSD2,I:Q=USR(1):VB=USR(3):SYSC2,Q,I,1,VB:NEXT
  618. 618 K=1:SYSE,1:GOTO118
  619. 619 :
  620. 620 :
  621. 621 REM ********************************
  622. 622 REM *     MAKROS IM SPEICHER       *
  623. 623 REM ********************************
  624. 624 :
  625. 625 ZA=0:A=1:E1=19:MR=K:IFP=1THENMR=MM
  626. 626 IFMR=0GOTO566
  627. 627 GOSUB41
  628. 628 PRINT"           [205]AKROS IM [211]PEICHER          [146] ";:IFE1>MRTHENE1=MR
  629. 629 GOSUB42:N1$=STR$(1322-V):N1$=RIGHT$("0000"+RIGHT$(N1$,LEN(N1$)-1),4)
  630. 630 PRINT"":FORI=ZATO18:PRINT"                   ":NEXT
  631. 631 PRINT"":FORX=ATOE1
  632. 632 PRINT"          ";LEFT$(B$(X)+"..............",14):NEXT
  633. 633 IFE1=MRTHENPRINT"     "N1$" [197]CKPUNKTE FREI"
  634. 634 GOSUB47
  635. 635 IFE1=MRGOTO555
  636. 636 A=E1+1:E1=A+18:IFE1>MRTHENE1=MR:IFA>MRTHENA=MR-1
  637. 637 GOTO630
  638. 638 :
  639. 639 :
  640. 640 REM ********************************
  641. 641 REM *     MAKRO SPEICHERN          *
  642. 642 REM ********************************
  643. 643 :
  644. 644 IFK=0GOTO566
  645. 645 GOSUB41
  646. 646 PRINT"             [205]AKRO SPEICHERN           [146] "
  647. 647 GOSUB44:IFN1GOTO555
  648. 648 GOSUB49:IFN1GOTO650
  649. 649 PRINT"[145]":GOSUB51:GOTO555
  650. 650 N2=N1:PRINT:PRINT""N$"[145]"
  651. 651 N$="":INPUT"[198]ILE  - [206]AME     ";N$:GOSUB79:IFN1GOTO555
  652. 652 IFLEN(N$)>13THENPRINT"[145]";:GOTO651
  653. 653 GOSUB918:OPEN2,8,2,"MA."+N$+",S,W":GOSUB684:IFF<>0GOTO555
  654. 654 PRINT#2,ZE:IFSTGOTO656
  655. 655 PRINT#2,N$:SYS21301,D,N2
  656. 656 CLOSE2:CLOSE1:GOSUB684:IFF=0THENGOSUB688
  657. 657 GOTO555
  658. 658 :
  659. 659 :
  660. 660 REM ********************************
  661. 661 REM *      MAKRO LADEN             *
  662. 662 REM ********************************
  663. 663 :
  664. 664 GOSUB41:GOSUB43
  665. 665 PRINT"               [205]AKRO LADEN             [146] "
  666. 666 GOSUB890:N$="":INPUT"[198]ILE - [206]AME     ";N$:GOSUB79:IFN1GOTO555
  667. 667 IFLEN(N$)>13THENPRINT"[145][145][145][145]";:GOTO666
  668. 668 OPEN2,8,2,"MA."+N$+",S,R":GOSUB684:IFF<>0GOTO555
  669. 669 INPUT#2,ZE:IFSTGOTO674
  670. 670 GOSUB915:IFFTHENCLOSE2:CLOSE1:GOTO555
  671. 671 INPUT#2,N$:IFSTGOTO674
  672. 672 K=K+1:IFP=0THENB$(K)=N$
  673. 673 SYS21006,D,V,K
  674. 674 CLOSE2:CLOSE1:GOSUB684:IFF=0GOTO676
  675. 675 K=K-1:GOTO555
  676. 676 GOSUB688:D=PEEK(2026)+256*PEEK(2027):V=PEEK(2028)+256*PEEK(2029)
  677. 677 GOTO735
  678. 678 :
  679. 679 :
  680. 680 REM ********************************
  681. 681 REM *     DISK - STATUS            *
  682. 682 REM ********************************
  683. 683 :
  684. 684 OPEN1,8,15:INPUT#1,F,F$,T,S:IFF=0THENRETURN
  685. 685 PRINT:PRINT"[196]ISKETTENFEHLER :"
  686. 686 PRINT""F","F$","T","S
  687. 687 GOSUB47
  688. 688 CLOSE2:PRINT#1,"U9":CLOSE1:RETURN
  689. 689 :
  690. 690 :
  691. 691 REM ********************************
  692. 692 REM *     DISKETTENKOMMANDO SENDEN *
  693. 693 REM ********************************
  694. 694 :
  695. 695 GOSUB41:GOSUB43
  696. 696 PRINT"        [196]ISKETTENKOMMANDO SENDEN       [146] "
  697. 697 POKE631,34:POKE198,1:N$="":INPUT"[203]OMMANDO ";N$:GOSUB79:IFN1GOTO555
  698. 698 OPEN1,8,15,N$:INPUT#1,F,F$,T,S:PRINT"[196]ISKETTENSTATUS :"
  699. 699 GOSUB686:GOTO555
  700. 700 :
  701. 701 :
  702. 702 REM ********************************
  703. 703 REM *     MAKROS AUF DISKETTE      *
  704. 704 REM ********************************
  705. 705 :
  706. 706 GOSUB41
  707. 707 PRINT"          [205]AKROS AUF [196]ISKETTE          [146] ";
  708. 708 PRINT:OPEN2,8,0,"$0:MA.*=SEQ":SYS26134:CLOSE2
  709. 709 GOSUB684:CLOSE2:CLOSE1:IFF=0THENGOSUB47
  710. 710 GOTO555
  711. 711 :
  712. 712 :
  713. 713 REM ********************************
  714. 714 REM *      PARAMETER-UEBERGABE     *
  715. 715 REM ********************************
  716. 716 :
  717. 717 W2=INT(W/256):W1=W-256*W2:POKEA+I,W1:POKEA+I+1,W2:I=I+2:RETURN
  718. 718 POKERF,15
  719. 719 PRINTCHR$(14)CHR$(8)"[147][151]        [211]YSTEMDISKETTE EINLEGEN !"
  720. 720 GOSUB47:IFA$="_"THENRETURN
  721. 721 OPEN2,8,2,"CAD.MAIN,P,R":CLOSE2:GOSUB684:IFFTHENA$="_":RETURN
  722. 722 PRINT#1,"U9":CLOSE1:RETURN
  723. 723 FORX=1TOK:FORY=1TO13:W=PEEK(A+Y):IFW=254THENY=13:GOTO725
  724. 724 B$(X)=B$(X)+CHR$(W)
  725. 725 NEXTY:A=A+14:NEXTX:A=49153:RETURN
  726. 726 IFK=0THENRETURN
  727. 727 FORX=1TOK:FORY=1TOLEN(B$(X)):POKEA+Y,ASC(MID$(B$(X),Y,1)):NEXTY
  728. 728 POKEA+Y,254:A=A+14:NEXTX:A=49153:RETURN
  729. 729 :
  730. 730 :
  731. 731 REM ********************************
  732. 732 REM *  GELADENENS MAKRO EINFUEGEN  *
  733. 733 REM ********************************
  734. 734 :
  735. 735 N$=B$(K):IFPGOTO741
  736. 736 GOSUB49:IFN1<>KGOTO738
  737. 737 GOTO740
  738. 738 PRINT"":GOSUB52:B$(K)=N$
  739. 739 PRINT"[145][145][145][145][145][145][145][145]";:GOTO736
  740. 740 I=1:DH=K:DG=K:MM=K:AS=1:GOSUB59:GOTO597
  741. 741 B$(K)=""
  742. 742 I=1:DH=K:GOTO605
  743. 743 :
  744. 744 :
  745. 745 REM ********************************
  746. 746 REM *     ANGEWAEHLTES SYMBOL      *
  747. 747 REM ********************************
  748. 748 :
  749. 749 IFZ>=159ORO<=100THENC=0:RETURN
  750. 750 IFZ<50THENPA=3:PC=49:PE=1:GOTO753
  751. 751 IFZ<100THENPA=50:PC=99:PE=3:GOTO753
  752. 752 PA=100:PC=156:PE=2
  753. 753 IFO<135THENPB=102:PD=134:PF=2::GOTO756
  754. 754 IFO<165THENPB=135:PD=164:PF=1:GOTO756
  755. 755 PB=165:PD=196:PF=0
  756. 756 C=PF*3+PE:RETURN
  757. 757 :
  758. 758 :
  759. 759 REM ********************************
  760. 760 REM *   VERFORMUNG UEBER JOYSTICK  *
  761. 761 REM ********************************
  762. 762 IFWQANDEI=0THENWQ=0:B=3:GOSUB334
  763. 763 GOSUB77
  764. 764 IFJ=128THEN767
  765. 765 IFINT(J/2)=J/2THEN763
  766. 766 J=INT(J/2)+1:RETURN
  767. 767 B=3:GOSUB334:C=0
  768. 768 RETURN
  769. 769 IFA<49ORA>57THENC=0:SV=0:RETURN
  770. 770 A=A-48:XA=INT((9-A)/3)*3:XB=A-INT((A-1)/3)*3
  771. 771 XB=3+(XB<2)*2+(XB>2)*1:C=XA+XB:SV=C:WQ=1
  772. 772 EI=1:SYSL,1:SYSE,0:GOSUB55:IFC=10GOTO775
  773. 773 IFC>6THENINPUT"[147][196]REHWINKEL   90[157][157][157][157]";W:GOTO776
  774. 774 IFC>3THENINPUT"[147][214]ERSCHIEBUNGSSUMMAND   50[157][157][157][157]";W:GOTO776
  775. 775 INPUT"[147][214]ERZERRUNGSFAKTOR   1.5[157][157][157][157][157]";W:GOTO776
  776. 776 IFW=0THENC=0:SV=0:EI=0:SYSFL,4
  777. 777 RETURN
  778. 778 :
  779. 779 :
  780. 780 REM ********************************
  781. 781 REM *     HAUPTMENUE LOESCHEN      *
  782. 782 REM ********************************
  783. 783 :
  784. 784 GOSUB56
  785. 785 GOSUB41
  786. 786 PRINT"         [200]AUPTMENUE '[204]OESCHEN'         [146] ";
  787. 787 GOSUB42
  788. 788 PRINT"[193]. [198]LAECHEN DURCHBLAETTERN"
  789. 789 PRINT"[194]. [205]AKROS DURCHBLAETTERN"
  790. 790 PRINT"[195]. [194]EKANNTES [205]AKRO LOESCHEN"
  791. 791 PRINT"[196]. [193]LLES LOESCHEN "
  792. 792 PRINT"[197]. [214]ERBINDUNGSVORSCHRIFT"
  793. 793 GOSUB81:IF(A<65ORA>69)ANDA<>95GOTO793
  794. 794 IFA=95GOTO880
  795. 795 ONA-64GOTO802,828,854,866,877
  796. 796 :
  797. 797 :
  798. 798 REM ********************************
  799. 799 REM *    FLAECHEN DURCHBLAETTERN   *
  800. 800 REM ********************************
  801. 801 :
  802. 802 IFD=1GOTO793
  803. 803 SYSE,1:F=1:JL=0:N1=D-1:MO=1
  804. 804 GOSUB92
  805. 805 IFA=86THENSYSD2,F:SYSC2,USR(1),F,USR(2),VB
  806. 806 IFA=95ANDJL>0THENPOKERF,14:GOSUB820:GOSUB56:GOTO118
  807. 807 IFA=95THENSYSL,1:GOSUB56:GOTO118
  808. 808 GOSUB446:IFA=133ANDJL>1THENJL=0:POKERF,14:GOSUB820:F=F-1:GOTO804
  809. 809 IFA=94GOTO814
  810. 810 IFA=76ANDJL>0THENJL=JL+1:DG=F:SYSL,1:GOSUB254:F=F-1:N1=D-1:GOTO804
  811. 811 IFA=76GOTO818
  812. 812 SYSFL,4:GOSUB97:GOTO805
  813. 813 REM ***** '^' *******************
  814. 814 POKERF,14:SYSL,1:B=2:GOSUB31
  815. 815 GOSUB56:DG=F:SYSG,0,0,42,9,2,3
  816. 816 SYSDA,2,DG,1,2:SYSCO,1,0:U=2:GOTO214
  817. 817 REM *********** 'L' *************
  818. 818 SYSL,1:B=2:GOSUB31:GOSUB58:DG=F
  819. 819 SYSDA,2,DG,1,2:SYSE,2:SYSCO,1,0:SYSE,1:GOSUB254:N1=D-1:GOTO804
  820. 820 SYSL,1:B=2:GOSUB31:GOSUB58:SYSDA,0,D,1,2:SYSE,2
  821. 821 SYSCO,1,0:SYSE,1:RETURN
  822. 822 :
  823. 823 :
  824. 824 REM ********************************
  825. 825 REM *     MAKROS DURCHBLAETTERN    *
  826. 826 REM ********************************
  827. 827 :
  828. 828 IFK=0GOTO793
  829. 829 SYSE,1:F=1:MO=3:N1=K
  830. 830 GOSUB92
  831. 831 IFA=95THENSYSL,1:GOSUB56:GOTO118
  832. 832 IFA<>86GOTO836
  833. 833 FORI=1TOD:SYSD2,I:IFUSR(2)<>KGOTO835
  834. 834 SYSC2,USR(1),I,USR(2),VB
  835. 835 NEXTI:SYSE,1
  836. 836 IFA=94GOTO840
  837. 837 IFA=76GOTO845
  838. 838 SYSFL,4:GOSUB97:GOTO831
  839. 839 REM ******* '^' *****************
  840. 840 SYSL,1:SYSCO,2,0:SYSE,2
  841. 841 B$=B$(F):GOSUB61:AS=0:ZN=0:GOSUB58
  842. 842 B=1:GOSUB31:GOSUB59:DG=F:SYSDA,4,DG,1,1:SYSE,1
  843. 843 AS=1:GOTO515
  844. 844 REM ******* 'L' *****************
  845. 845 SYSL,1:SYSCO,2,0:SYSE,2:GOSUB58
  846. 846 B=1:GOSUB31:SYSDA,4,F,1,1:SYSE,1
  847. 847 DG=F:GOSUB268:K=K-1:N1=K:GOTO118
  848. 848 :
  849. 849 :
  850. 850 REM ********************************
  851. 851 REM *   BEKANNTES MAKRO LOESCHEN   *
  852. 852 REM ********************************
  853. 853 :
  854. 854 IFK=0GOTO793
  855. 855 GOSUB41:GOSUB43
  856. 856 PRINT"   [205]AKRO MIT BEKANNTEM [206]AMEN LOESCHEN  [146] ":GOSUB44
  857. 857 IFN1GOTO785
  858. 858 GOSUB49:IFN1THENF=N1:MO=3:N1=K:GOTO830
  859. 859 SYSE,1:GOSUB56:GOTO118
  860. 860 :
  861. 861 :
  862. 862 REM ********************************
  863. 863 REM *     ALLES LOESCHEN           *
  864. 864 REM ********************************
  865. 865 :
  866. 866 PRINT"[211]IND [211]IE SICHER ?[146]  ";
  867. 867 GOSUB47
  868. 868 PRINTA$:IFA$<>"J"GOTO870
  869. 869 SYS25919:CLR:D=1:GOTO12
  870. 870 GOSUB56:SYSE,1:GOTO118
  871. 871 :
  872. 872 :
  873. 873 REM ********************************
  874. 874 REM *     VERBINDUNGSVORSCHRIFT    *
  875. 875 REM ********************************
  876. 876 :
  877. 877 I=1:GOSUB41:GOSUB43
  878. 878 PRINT"    [205]OMENTANE  [214]ERBINDUNGSVORSCHRIFT   [146] "
  879. 879 GOSUB84
  880. 880 SYSE,1:GOSUB56:GOTO118
  881. 881 :
  882. 882 :
  883. 883 REM ********************************
  884. 884 REM *    MEHR ALS 63 MAKROS ?      *
  885. 885 REM ********************************
  886. 886 :
  887. 887 SYSL,1:I=1:SYSE,0:GOSUB55:GOSUB41
  888. 888 PRINT"[147]":GOSUB84
  889. 889 SYSFL,4:RETURN
  890. 890 IFK<64ANDMM<64THENRETURN
  891. 891 FORI=1TOD:SYSD2,I:GOSUB74:IFSA<>0THENSA=SA-1
  892. 892 SYSC2,XA,I,SA,VB:NEXT:FORI=2TOMM:B$(I-1)=B$(I):NEXT:MM=MM-1:K=K-1:RETURN
  893. 893 :
  894. 894 :
  895. 895 REM ********************************
  896. 896 REM *    PARAMETER CODIEREN        *
  897. 897 REM *********************************
  898. 898 GOSUB718:IFA$="_"THENSYSE,1:POKERF,14:GOTO118
  899. 899 A=49153:POKEA+919,255:I=900:W=K:GOSUB717:W=D:GOSUB717:W=V:GOSUB717
  900. 900 GOSUB726:POKE836,0:PRINT"[155][147]LOAD"CHR$(34)"CAD.MAIN"CHR$(34)",8"
  901. 901 PRINT"RUN:":POKE631,19:POKE632,13:POKE633,13:POKE198,3:NEW
  902. 902 :
  903. 903 :
  904. 904 REM ********************************
  905. 905 REM *    PARAMETER DECODIEREN      *
  906. 906 REM ********************************
  907. 907 A=49153:K=PEEK(A+900)+256*PEEK(A+901):D=PEEK(A+902)+256*PEEK(A+903)
  908. 908 V=PEEK(A+904)+256*PEEK(A+905):GOSUB723:RETURN
  909. 909 :
  910. 910 :
  911. 911 REM ********************************
  912. 912 REM *   ZU VIELE DATEN ?           *
  913. 913 REM ********************************
  914. 914 :
  915. 915 IFV+ZE<1320THENF=0:RETURN
  916. 916 F=1:SYSL,1:SYSE,0:GOSUB55:PRINT"[147]    [198]UER DIESE [207]PERATION REICHT DER "
  917. 917 PRINT"     [211]PEICHERPLATZ NICHT MEHR AUS!":GOSUB47:RETURN
  918. 918 ZE=0:FORI=1TOD-1:SYSD2,I:SR=USR(1)
  919. 919 IFUSR(2)=DHTHENSYSD2,I+1:ZE=ZE+USR(1)-SR
  920. 920 NEXTI:RETURN
  921.